home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).adf
/
GFA.Anwendung
/
Kredit.LST
< prev
next >
Wrap
File List
|
1992-09-14
|
6KB
|
137 lines
REM ******************************
REM * *
REM * Kreditberechnung V 1.00 *
REM * *
REM * © 21.1.1991 by Henry König *
REM * *
REM * Bornheide 71, 2 Hamburg 53 *
REM * *
REM ******************************
REM
init
q$="" ! Eingangswert für die Schleife
WHILE q$<>"4" ! Hauptschleife
CLS
PRINT AT(10,2);"Berechnung von Krediten und Laufzeiten" ! Cursor in Zeile und Spalte setzen
PRINT AT(10,12);"1 - Kreditthöhe nach Anzahl der Raten, Ratenhöhe und Laufzeit" ! Cursor in Zeile und Spalte setzen
PRINT AT(10,14);"2 - Anzahl der Raten nach Kreditsumme und Monatraten" ! Cursor in Zeile und Spalte setzen
PRINT AT(10,16);"3 - Restschuld und nicht verbrauchte Kreditzinsen berechnen" ! Cursor in Zeile und Spalte setzen
PRINT AT(10,20);"4 - Programm beenden" ! Cursor in Zeile und Spalte setzen
PRINT AT(14,23);"Ihre Wahl ---> "; ! Cursor in Zeile und Spalte setzen
INPUT q$
ON VAL(q$) GOSUB kredit,laufzeit,restschuld,beenden
WEND
END ! damit es ordentlich aussieht
> PROCEDURE beenden ! Programm beenden
CLOSEW #1
CLOSES 1
END ! und zurück zur Workbench
RETURN
> PROCEDURE kredit ! Kredithöhe nach Raten und Laufzeit
CLS ! Bildschirm löschen
PRINT AT(4,4);"Kreditsumme: ";
INPUT kredit ! Kredithöhe abfragen
PRINT AT(4,6);"Bearbeitungsgebühr in %: ";
INPUT bg ! Bearbeitungsgebühr in %
kredit=kredit+(kredit/100)*bg ! Bearbeitungsgebühr zur Kreditsumme
PRINT AT(4,8);"Kreditsumme: ";kredit ! Kreditsumme mit Bearbeitungsgebühr
PRINT AT(4,10);"Zinssatz p.a.: ";
INPUT pa ! Zinsen per Jahr
PRINT AT(4,12);"Anzahl der Monatsraten: ";
INPUT mr ! Kreditlaufzeit in Monaten
pa=pa/12 ! Zinsen für einen Monat
h=1+pa/100
a=kredit*h^mr*(h-1)/(h^mr-1)
b=INT(a*100+0.5)/100 ! Monatsrate
PRINT
PRINT " Höhe der Monatsrate: ";b;" DM"
PRINT " -----------------------------"
monate=1 ! Zähler der Monate
s=0 ! Zinsen löschen
kredit2=kredit
PRINT " Monate","Schuld","Zinsen","Tilgung"
PRINT " -------------------------------------------------------"
zz=0 ! Zeilenzähler löschen
WHILE monate<=mr
zz=zz+1 ! Zeilenzähler plus 1
monate1=INT((kredit2*pa/100)*100+0.5)/100
tilgung=b-monate1 ! Tilgung aufaddieren
s=s+monate1
IF zz=12 THEN ! 12 Monate berechnet
PRINT monate,kredit2,monate1,tilgung ! Zwischensumme anzeigen
zz=0 ! Zeilenzähler löschen
ENDIF
kredit2=kredit2-tilgung
monate=monate+1 ! Monatszähler plus 1
WEND
PRINT
PRINT " Zinsen für ";mr;" Monate: ";s;" DM";", Gesamtschuld: ";kredit+s;" DM"
GOSUB tastendruck ! auf Tastendruck warten
RETURN
> PROCEDURE laufzeit ! Laufzeit eines Kredits berechnen
CLS
PRINT AT(4,6);"Kreditbetrag "; ! Cursor in Zeile und Spalte setzen
INPUT dd ! gewünschter Kreditbetrag
PRINT AT(4,8);"Bearbeitungsgebhr in DM (meisten 2%) "; ! Cursor in Zeile und Spalte setzen
INPUT tt
dd=dd+tt ! Bearbeitungsgebühr zur Kreditsumme
GOSUB raten.zinsen.abfragen ! Ratenhöhe und Zinssatz abfragen
kk=bb/(bb-dd*cc/100)
aa=LOG(kk)/LOG(1+cc/100) ! Anzahl der Monatraten
PRINT AT(4,14);"Anzahl der Monatsraten: ";aa ! Cursor in Zeile und Spalte setzen
GOSUB tastendruck ! auf Tastendruck warten
RETURN
> PROCEDURE raten.zinsen.abfragen ! Ratenhöhe und Zinssatz abfragen
PRINT AT(4,10);"Höhe der monatlichen Raten "; ! Cursor in Zeile und Spalte setzen
INPUT bb
PRINT AT(4,12);"Zinsen je Jahr "; ! Cursor in Zeile und Spalte setzen
INPUT cc
cc=cc/12 ! Zinsen je Monat
RETURN
> PROCEDURE restschuld ! nicht verbrauchte Kreditzinsen berechnen
CLS ! Bildschirm löschen
PRINT AT(4,6);"Wie hoch war der gesamte Kredit mit Zinsen "; ! Cursor in Zeile und Spalte setzen
INPUT uu ! gesamte Kredithöhe
PRINT AT(4,8);"Aus wieviel Raten besteht der Kredit "; ! Cursor in Zeile und Spalte setzen
INPUT aa
GOSUB raten.zinsen.abfragen ! Ratenhöhe und Zinssatz abfragen
PRINT AT(4,14);"Wieviel Raten sind noch zu zahlen "; ! Cursor in Zeile, Spalte setzen
INPUT rr ! Anzahl der restlichen Raten
LOCATE 4,16 ! Cursor in Zeile und Spalte setzen
rsu=rr*bb ! noch fällige Raten mal Monatsrate
PRINT "Restsumme: ";rsu ! restlicher Kredit
rs=rsu ! gesamten Kredit merken
rz=0 ! nicht verbrauchte Zinsen löschen
FOR j=rr TO 1 STEP -1
zh=(rs/100)*cc ! Zinsen für den Restbetrag
rz=rz+zh ! nicht verbrauchte Zinsen addieren
rs=rs-bb ! Restsumme minus Monatsrate
REM PRINT j;" ";rz;" ";zh
REM INPUT x$
NEXT j
PRINT AT(4,18);"Restkredit abzüglich nichtverbraucheter Zinsen: ";rsu-rz ! Cursor in Zeile und Spalte setzen
GOSUB tastendruck ! auf Tastendruck warten
RETURN
> PROCEDURE tastendruck ! auf Tastendruck warten
PRINT AT(24,28);"Weiter mit beliebiger Taste"; ! Cursor in Zeile und Spalte setzen
INPUT x$
RETURN
> PROCEDURE init
breite%=640 ! Screenbreite
hoehe%=256 ! Screenhöhe
ebenen%=3 ! 3 Bitplanes
OPENS 1,0,0,breite%,hoehe%,ebenen%,&H8000
OPENW #1,0,0,breite%,hoehe%,&H18,&H1800,1
farben.setzen ! Farbpalette setzen
RETURN
> PROCEDURE farben.setzen
SETCOLOR 0,5,5,5 ! grau statt blau
SETCOLOR 1,15,15,15 ! weiß bleibt
SETCOLOR 2,0,0,0 ! schwarz erhalten
SETCOLOR 3,15,5,0 ! rot bleibt
SETCOLOR 4,10,10,10 ! hellgrau inverse Farbe im Filerequester
SETCOLOR 5,15,15,0 ! gelb
SETCOLOR 6,0,0,0 ! schwarz = Inverse Farbe im Filerequester
RETURN
REM